home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / clean / sun3.lha / Sun3 / deltaFile.abc < prev    next >
Text File  |  1992-08-07  |  19KB  |  1,365 lines
  1. .comp 800 010111011
  2. .code     747      28     135
  3. .start _nostart_
  4. .depend "deltaFile"
  5. .endinfo
  6. .implab _cycle_in_spine
  7. .implab _reserve
  8. .implab _type_error
  9. .implab _hnf
  10. .impdesc _Cons
  11. .impdesc _Tuple
  12. .impdesc _S.1
  13. .implab n_S.1
  14. .impdesc _S.2
  15. .implab n_S.2
  16. .impdesc _S.3
  17. .implab n_S.3
  18. .impdesc _S.4
  19. .implab n_S.4
  20. .impdesc _S.5
  21. .implab n_S.5
  22. .impdesc _S.6
  23. .implab n_S.6
  24. .impdesc _Nil
  25. .implab _driver
  26. .implab e_system_nAP
  27. .implab e_system_sAP
  28. .impdesc e_system_AP
  29. .desc m_deltaFile _hnf _hnf 0 "deltaFile"
  30. .export e_deltaFile_StdIO
  31. .export e_deltaFile_sStdIO
  32. .export e_deltaFile_nStdIO
  33. .desc e_deltaFile_StdIO e_deltaFile_nStdIO e_deltaFile_lStdIO 0 "StdIO"
  34. .o 1 0
  35. e_deltaFile_lStdIO:
  36.     halt
  37. .n 0 e_deltaFile_StdIO
  38. .o 1 0
  39. e_deltaFile_nStdIO:
  40.     push_node _cycle_in_spine 0
  41. .d 0 0
  42.     jsr ea16
  43. .o 0 2 f
  44.     fillF_b 0 0
  45.     pop_b 2
  46. .d 1 0
  47.     rtn
  48. .o 0 0
  49. e_deltaFile_sStdIO:
  50. .o 0 0
  51. ea16:
  52. .o 0 0
  53. s16.1:
  54. .inline StdIO
  55. .d 0 0
  56.     jsr    stdioF
  57. .o 0 2 f
  58. .end
  59. .d 0 2 f
  60.     rtn
  61. .export e_deltaFile_StdErr
  62. .export e_deltaFile_sStdErr
  63. .export e_deltaFile_nStdErr
  64. .desc e_deltaFile_StdErr e_deltaFile_nStdErr e_deltaFile_lStdErr 0 "StdErr"
  65. .o 1 0
  66. e_deltaFile_lStdErr:
  67.     halt
  68. .n 0 e_deltaFile_StdErr
  69. .o 1 0
  70. e_deltaFile_nStdErr:
  71.     push_node _cycle_in_spine 0
  72. .d 0 0
  73.     jsr ea18
  74. .o 0 2 f
  75.     fillF_b 0 0
  76.     pop_b 2
  77. .d 1 0
  78.     rtn
  79. .o 0 0
  80. e_deltaFile_sStdErr:
  81. .o 0 0
  82. ea18:
  83. .o 0 0
  84. s18.1:
  85. .inline StdErr
  86.     pushI 0
  87.     pushI 0
  88. .end
  89. .d 0 2 f
  90.     rtn
  91. .export e_deltaFile_FOpen
  92. .export e_deltaFile_sFOpen
  93. .export e_deltaFile_nFOpen
  94. .desc e_deltaFile_FOpen e_deltaFile_nFOpen e_deltaFile_lFOpen 2 "FOpen"
  95. .o 2 0
  96. e_deltaFile_lFOpen:
  97.     repl_args 1 1
  98. .d 2 0
  99.     jsr ea20
  100. .o 0 3 b f
  101.     create
  102.     create
  103.     fillF_b 1 0
  104.     create
  105.     fillB_b 0 0
  106.     fill _Tuple 2 _hnf 2
  107.     pop_b 3
  108. .d 1 0
  109.     rtn
  110. .n 2 e_deltaFile_FOpen
  111. .o 1 0
  112. e_deltaFile_nFOpen:
  113.     push_node _cycle_in_spine 2
  114. .d 2 0
  115.     jsr ea20
  116. .o 0 3 b f
  117.     create
  118.     fillF_b 1 0
  119.     create
  120.     fillB_b 0 0
  121.     fill _Tuple 2 _hnf 2
  122.     pop_b 3
  123. .d 1 0
  124.     rtn
  125. .o 2 0
  126. ea20:
  127.     push_a 1
  128.     jsr_eval
  129.     pop_a 1
  130.     jsr_eval
  131.     pushI_a 1
  132.     update_a 0 1
  133.     pop_a 1
  134. .o 1 1 i
  135. e_deltaFile_sFOpen:
  136. .o 1 1 i
  137. s20.1:
  138. .inline FOpen
  139. .d 1 1 i
  140.     jsr    openF
  141. .o 0 3 b f
  142. .end
  143. .d 0 3 b f
  144.     rtn
  145. .export e_deltaFile_FReOpen
  146. .export e_deltaFile_sFReOpen
  147. .export e_deltaFile_nFReOpen
  148. .desc e_deltaFile_FReOpen e_deltaFile_nFReOpen e_deltaFile_lFReOpen 2 "FReOpen"
  149. .o 2 0
  150. e_deltaFile_lFReOpen:
  151.     repl_args 1 1
  152. .d 2 0
  153.     jsr ea22
  154. .o 0 3 b f
  155.     create
  156.     create
  157.     fillF_b 1 0
  158.     create
  159.     fillB_b 0 0
  160.     fill _Tuple 2 _hnf 2
  161.     pop_b 3
  162. .d 1 0
  163.     rtn
  164. .n 2 e_deltaFile_FReOpen
  165. .o 1 0
  166. e_deltaFile_nFReOpen:
  167.     push_node _cycle_in_spine 2
  168. .d 2 0
  169.     jsr ea22
  170. .o 0 3 b f
  171.     create
  172.     fillF_b 1 0
  173.     create
  174.     fillB_b 0 0
  175.     fill _Tuple 2 _hnf 2
  176.     pop_b 3
  177. .d 1 0
  178.     rtn
  179. .o 2 0
  180. ea22:
  181.     push_a 1
  182.     jsr_eval
  183.     pop_a 1
  184.     jsr_eval
  185.     pushI_a 1
  186.     pushF_a 0
  187.     pop_a 2
  188. .o 0 3 f i
  189. e_deltaFile_sFReOpen:
  190. .o 0 3 f i
  191. s22.1:
  192. .inline FReOpen
  193. .d 0 3 f i
  194.     jsr reopenF
  195. .o 0 3 b f
  196. .end
  197. .d 0 3 b f
  198.     rtn
  199. .export e_deltaFile_FReadC
  200. .export e_deltaFile_sFReadC
  201. .export e_deltaFile_nFReadC
  202. .desc e_deltaFile_FReadC e_deltaFile_nFReadC e_deltaFile_lFReadC 1 "FReadC"
  203. .o 2 0
  204. e_deltaFile_lFReadC:
  205.     pop_a 1
  206. .d 1 0
  207.     jsr ea24
  208. .o 0 4 b c f
  209.     create
  210.     create
  211.     fillF_b 2 0
  212.     create
  213.     fillC_b 1 0
  214.     create
  215.     fillB_b 0 0
  216.     fill _Tuple 3 _hnf 3
  217.     pop_b 4
  218. .d 1 0
  219.     rtn
  220. .n 1 e_deltaFile_FReadC
  221. .o 1 0
  222. e_deltaFile_nFReadC:
  223.     push_node _cycle_in_spine 1
  224. .d 1 0
  225.     jsr ea24
  226. .o 0 4 b c f
  227.     create
  228.     fillF_b 2 0
  229.     create
  230.     fillC_b 1 0
  231.     create
  232.     fillB_b 0 0
  233.     fill _Tuple 3 _hnf 3
  234.     pop_b 4
  235. .d 1 0
  236.     rtn
  237. .o 1 0
  238. ea24:
  239.     jsr_eval
  240.     pushF_a 0
  241.     pop_a 1
  242. .o 0 2 f
  243. e_deltaFile_sFReadC:
  244. .o 0 2 f
  245. s24.1:
  246. .inline FReadC
  247. .d 0 2 f
  248.     jsr    readFC
  249. .o 0 4 b c f
  250. .end
  251. .d 0 4 b c f
  252.     rtn
  253. .export e_deltaFile_FReadI
  254. .export e_deltaFile_sFReadI
  255. .export e_deltaFile_nFReadI
  256. .desc e_deltaFile_FReadI e_deltaFile_nFReadI e_deltaFile_lFReadI 1 "FReadI"
  257. .o 2 0
  258. e_deltaFile_lFReadI:
  259.     pop_a 1
  260. .d 1 0
  261.     jsr ea26
  262. .o 0 4 b i f
  263.     create
  264.     create
  265.     fillF_b 2 0
  266.     create
  267.     fillI_b 1 0
  268.     create
  269.     fillB_b 0 0
  270.     fill _Tuple 3 _hnf 3
  271.     pop_b 4
  272. .d 1 0
  273.     rtn
  274. .n 1 e_deltaFile_FReadI
  275. .o 1 0
  276. e_deltaFile_nFReadI:
  277.     push_node _cycle_in_spine 1
  278. .d 1 0
  279.     jsr ea26
  280. .o 0 4 b i f
  281.     create
  282.     fillF_b 2 0
  283.     create
  284.     fillI_b 1 0
  285.     create
  286.     fillB_b 0 0
  287.     fill _Tuple 3 _hnf 3
  288.     pop_b 4
  289. .d 1 0
  290.     rtn
  291. .o 1 0
  292. ea26:
  293.     jsr_eval
  294.     pushF_a 0
  295.     pop_a 1
  296. .o 0 2 f
  297. e_deltaFile_sFReadI:
  298. .o 0 2 f
  299. s26.1:
  300. .inline FReadI
  301. .d 0 2 f
  302.     jsr    readFI
  303. .o 0 4 b i f
  304. .end
  305. .d 0 4 b i f
  306.     rtn
  307. .export e_deltaFile_FReadR
  308. .export e_deltaFile_sFReadR
  309. .export e_deltaFile_nFReadR
  310. .desc e_deltaFile_FReadR e_deltaFile_nFReadR e_deltaFile_lFReadR 1 "FReadR"
  311. .o 2 0
  312. e_deltaFile_lFReadR:
  313.     pop_a 1
  314. .d 1 0
  315.     jsr ea28
  316. .o 0 5 b r f
  317.     create
  318.     create
  319.     fillF_b 3 0
  320.     create
  321.     fillR_b 1 0
  322.     create
  323.     fillB_b 0 0
  324.     fill _Tuple 3 _hnf 3
  325.     pop_b 5
  326. .d 1 0
  327.     rtn
  328. .n 1 e_deltaFile_FReadR
  329. .o 1 0
  330. e_deltaFile_nFReadR:
  331.     push_node _cycle_in_spine 1
  332. .d 1 0
  333.     jsr ea28
  334. .o 0 5 b r f
  335.     create
  336.     fillF_b 3 0
  337.     create
  338.     fillR_b 1 0
  339.     create
  340.     fillB_b 0 0
  341.     fill _Tuple 3 _hnf 3
  342.     pop_b 5
  343. .d 1 0
  344.     rtn
  345. .o 1 0
  346. ea28:
  347.     jsr_eval
  348.     pushF_a 0
  349.     pop_a 1
  350. .o 0 2 f
  351. e_deltaFile_sFReadR:
  352. .o 0 2 f
  353. s28.1:
  354. .inline FReadR
  355. .d 0 2 f
  356.     jsr    readFR
  357. .o 0 5 b r f
  358. .end
  359. .d 0 5 b r f
  360.     rtn
  361. .export e_deltaFile_FReadS
  362. .export e_deltaFile_sFReadS
  363. .export e_deltaFile_nFReadS
  364. .desc e_deltaFile_FReadS e_deltaFile_nFReadS e_deltaFile_lFReadS 2 "FReadS"
  365. .o 2 0
  366. e_deltaFile_lFReadS:
  367.     repl_args 1 1
  368. .d 2 0
  369.     jsr ea30
  370. .o 1 2 f
  371.     create
  372.     create
  373.     fillF_b 0 0
  374.     push_a 2
  375.     fill _Tuple 2 _hnf 2
  376.     update_a 0 1
  377.     pop_a 1
  378.     pop_b 2
  379. .d 1 0
  380.     rtn
  381. .n 2 e_deltaFile_FReadS
  382. .o 1 0
  383. e_deltaFile_nFReadS:
  384.     push_node _cycle_in_spine 2
  385. .d 2 0
  386.     jsr ea30
  387. .o 1 2 f
  388.     create
  389.     fillF_b 0 0
  390.     push_a 1
  391.     fill _Tuple 2 _hnf 3
  392.     pop_a 1
  393.     pop_b 2
  394. .d 1 0
  395.     rtn
  396. .o 2 0
  397. ea30:
  398.     push_a 1
  399.     jsr_eval
  400.     pop_a 1
  401.     jsr_eval
  402.     pushI_a 1
  403.     pushF_a 0
  404.     pop_a 2
  405. .o 0 3 f i
  406. e_deltaFile_sFReadS:
  407. .o 0 3 f i
  408. s30.1:
  409. .inline FReadS
  410. .d 0 3 f i
  411.     jsr readFS
  412. .o 1 2 f
  413. .end
  414. .d 1 2 f
  415.     rtn
  416. .export e_deltaFile_FWriteC
  417. .export e_deltaFile_sFWriteC
  418. .export e_deltaFile_nFWriteC
  419. .desc e_deltaFile_FWriteC e_deltaFile_nFWriteC e_deltaFile_lFWriteC 2 "FWriteC"
  420. .o 2 0
  421. e_deltaFile_lFWriteC:
  422.     repl_args 1 1
  423. .d 2 0
  424.     jsr ea32
  425. .o 0 2 f
  426.     create
  427.     fillF_b 0 0
  428.     pop_b 2
  429. .d 1 0
  430.     rtn
  431. .n 2 e_deltaFile_FWriteC
  432. .o 1 0
  433. e_deltaFile_nFWriteC:
  434.     push_node _cycle_in_spine 2
  435. .d 2 0
  436.     jsr ea32
  437. .o 0 2 f
  438.     fillF_b 0 0
  439.     pop_b 2
  440. .d 1 0
  441.     rtn
  442. .o 2 0
  443. ea32:
  444.     push_a 1
  445.     jsr_eval
  446.     pop_a 1
  447.     jsr_eval
  448.     pushF_a 1
  449.     pushC_a 0
  450.     pop_a 2
  451. .o 0 3 c f
  452. e_deltaFile_sFWriteC:
  453. .o 0 3 c f
  454. s32.1:
  455. .inline FWriteC
  456. .d 0 3 c f
  457.     jsr writeFC
  458. .o 0 2 f
  459. .end
  460. .d 0 2 f
  461.     rtn
  462. .export e_deltaFile_FWriteI
  463. .export e_deltaFile_sFWriteI
  464. .export e_deltaFile_nFWriteI
  465. .desc e_deltaFile_FWriteI e_deltaFile_nFWriteI e_deltaFile_lFWriteI 2 "FWriteI"
  466. .o 2 0
  467. e_deltaFile_lFWriteI:
  468.     repl_args 1 1
  469. .d 2 0
  470.     jsr ea34
  471. .o 0 2 f
  472.     create
  473.     fillF_b 0 0
  474.     pop_b 2
  475. .d 1 0
  476.     rtn
  477. .n 2 e_deltaFile_FWriteI
  478. .o 1 0
  479. e_deltaFile_nFWriteI:
  480.     push_node _cycle_in_spine 2
  481. .d 2 0
  482.     jsr ea34
  483. .o 0 2 f
  484.     fillF_b 0 0
  485.     pop_b 2
  486. .d 1 0
  487.     rtn
  488. .o 2 0
  489. ea34:
  490.     push_a 1
  491.     jsr_eval
  492.     pop_a 1
  493.     jsr_eval
  494.     pushF_a 1
  495.     pushI_a 0
  496.     pop_a 2
  497. .o 0 3 i f
  498. e_deltaFile_sFWriteI:
  499. .o 0 3 i f
  500. s34.1:
  501. .inline FWriteI
  502. .d 0 3 i f
  503.     jsr writeFI
  504. .o 0 2 f
  505. .end
  506. .d 0 2 f
  507.     rtn
  508. .export e_deltaFile_FWriteR
  509. .export e_deltaFile_sFWriteR
  510. .export e_deltaFile_nFWriteR
  511. .desc e_deltaFile_FWriteR e_deltaFile_nFWriteR e_deltaFile_lFWriteR 2 "FWriteR"
  512. .o 2 0
  513. e_deltaFile_lFWriteR:
  514.     repl_args 1 1
  515. .d 2 0
  516.     jsr ea36
  517. .o 0 2 f
  518.     create
  519.     fillF_b 0 0
  520.     pop_b 2
  521. .d 1 0
  522.     rtn
  523. .n 2 e_deltaFile_FWriteR
  524. .o 1 0
  525. e_deltaFile_nFWriteR:
  526.     push_node _cycle_in_spine 2
  527. .d 2 0
  528.     jsr ea36
  529. .o 0 2 f
  530.     fillF_b 0 0
  531.     pop_b 2
  532. .d 1 0
  533.     rtn
  534. .o 2 0
  535. ea36:
  536.     push_a 1
  537.     jsr_eval
  538.     pop_a 1
  539.     jsr_eval
  540.     pushF_a 1
  541.     pushR_a 0
  542.     pop_a 2
  543. .o 0 4 r f
  544. e_deltaFile_sFWriteR:
  545. .o 0 4 r f
  546. s36.1:
  547. .inline FWriteR
  548. .d 0 4 r f
  549.     jsr writeFR
  550. .o 0 2 f
  551. .end
  552. .d 0 2 f
  553.     rtn
  554. .export e_deltaFile_FWriteS
  555. .export e_deltaFile_sFWriteS
  556. .export e_deltaFile_nFWriteS
  557. .desc e_deltaFile_FWriteS e_deltaFile_nFWriteS e_deltaFile_lFWriteS 2 "FWriteS"
  558. .o 2 0
  559. e_deltaFile_lFWriteS:
  560.     repl_args 1 1
  561. .d 2 0
  562.     jsr ea38
  563. .o 0 2 f
  564.     create
  565.     fillF_b 0 0
  566.     pop_b 2
  567. .d 1 0
  568.     rtn
  569. .n 2 e_deltaFile_FWriteS
  570. .o 1 0
  571. e_deltaFile_nFWriteS:
  572.     push_node _cycle_in_spine 2
  573. .d 2 0
  574.     jsr ea38
  575. .o 0 2 f
  576.     fillF_b 0 0
  577.     pop_b 2
  578. .d 1 0
  579.     rtn
  580. .o 2 0
  581. ea38:
  582.     push_a 1
  583.     jsr_eval
  584.     pop_a 1
  585.     jsr_eval
  586.     pushF_a 1
  587.     update_a 0 1
  588.     pop_a 1
  589. .o 1 2 f
  590. e_deltaFile_sFWriteS:
  591. .o 1 2 f
  592. s38.1:
  593. .inline FWriteS
  594. .d 1 2 f
  595.     jsr writeFS
  596. .o 0 2 f
  597. .end
  598. .d 0 2 f
  599.     rtn
  600. .export e_deltaFile_FReadLine
  601. .export e_deltaFile_sFReadLine
  602. .export e_deltaFile_nFReadLine
  603. .desc e_deltaFile_FReadLine e_deltaFile_nFReadLine e_deltaFile_lFReadLine 1 "FReadLine"
  604. .o 2 0
  605. e_deltaFile_lFReadLine:
  606.     pop_a 1
  607. .d 1 0
  608.     jsr ea40
  609. .o 1 2 f
  610.     create
  611.     create
  612.     fillF_b 0 0
  613.     push_a 2
  614.     fill _Tuple 2 _hnf 2
  615.     update_a 0 1
  616.     pop_a 1
  617.     pop_b 2
  618. .d 1 0
  619.     rtn
  620. .n 1 e_deltaFile_FReadLine
  621. .o 1 0
  622. e_deltaFile_nFReadLine:
  623.     push_node _cycle_in_spine 1
  624. .d 1 0
  625.     jsr ea40
  626. .o 1 2 f
  627.     create
  628.     fillF_b 0 0
  629.     push_a 1
  630.     fill _Tuple 2 _hnf 3
  631.     pop_a 1
  632.     pop_b 2
  633. .d 1 0
  634.     rtn
  635. .o 1 0
  636. ea40:
  637.     jsr_eval
  638.     pushF_a 0
  639.     pop_a 1
  640. .o 0 2 f
  641. e_deltaFile_sFReadLine:
  642. .o 0 2 f
  643. s40.1:
  644. .inline FReadLine
  645. .d 0 2 f
  646.     jsr readLineF
  647. .o 1 2 f
  648. .end
  649. .d 1 2 f
  650.     rtn
  651. .export e_deltaFile_FEnd
  652. .export e_deltaFile_sFEnd
  653. .export e_deltaFile_nFEnd
  654. .desc e_deltaFile_FEnd e_deltaFile_nFEnd e_deltaFile_lFEnd 1 "FEnd"
  655. .o 2 0
  656. e_deltaFile_lFEnd:
  657.     pop_a 1
  658. .d 1 0
  659.     jsr ea42
  660. .o 0 3 b f
  661.     create
  662.     create
  663.     fillF_b 1 0
  664.     create
  665.     fillB_b 0 0
  666.     fill _Tuple 2 _hnf 2
  667.     pop_b 3
  668. .d 1 0
  669.     rtn
  670. .n 1 e_deltaFile_FEnd
  671. .o 1 0
  672. e_deltaFile_nFEnd:
  673.     push_node _cycle_in_spine 1
  674. .d 1 0
  675.     jsr ea42
  676. .o 0 3 b f
  677.     create
  678.     fillF_b 1 0
  679.     create
  680.     fillB_b 0 0
  681.     fill _Tuple 2 _hnf 2
  682.     pop_b 3
  683. .d 1 0
  684.     rtn
  685. .o 1 0
  686. ea42:
  687.     jsr_eval
  688.     pushF_a 0
  689.     pop_a 1
  690. .o 0 2 f
  691. e_deltaFile_sFEnd:
  692. .o 0 2 f
  693. s42.1:
  694. .inline FEnd
  695. .d 0 2 f
  696.     jsr endF
  697. .o 0 3 b f
  698. .end
  699. .d 0 3 b f
  700.     rtn
  701. .export e_deltaFile_FError
  702. .export e_deltaFile_sFError
  703. .export e_deltaFile_nFError
  704. .desc e_deltaFile_FError e_deltaFile_nFError e_deltaFile_lFError 1 "FError"
  705. .o 2 0
  706. e_deltaFile_lFError:
  707.     pop_a 1
  708. .d 1 0
  709.     jsr ea44
  710. .o 0 3 b f
  711.     create
  712.     create
  713.     fillF_b 1 0
  714.     create
  715.     fillB_b 0 0
  716.     fill _Tuple 2 _hnf 2
  717.     pop_b 3
  718. .d 1 0
  719.     rtn
  720. .n 1 e_deltaFile_FError
  721. .o 1 0
  722. e_deltaFile_nFError:
  723.     push_node _cycle_in_spine 1
  724. .d 1 0
  725.     jsr ea44
  726. .o 0 3 b f
  727.     create
  728.     fillF_b 1 0
  729.     create
  730.     fillB_b 0 0
  731.     fill _Tuple 2 _hnf 2
  732.     pop_b 3
  733. .d 1 0
  734.     rtn
  735. .o 1 0
  736. ea44:
  737.     jsr_eval
  738.     pushF_a 0
  739.     pop_a 1
  740. .o 0 2 f
  741. e_deltaFile_sFError:
  742. .o 0 2 f
  743. s44.1:
  744. .inline FError
  745. .d 0 2 f
  746.     jsr errorF
  747. .o 0 3 b f
  748. .end
  749. .d 0 3 b f
  750.     rtn
  751. .export e_deltaFile_FPosition
  752. .export e_deltaFile_sFPosition
  753. .export e_deltaFile_nFPosition
  754. .desc e_deltaFile_FPosition e_deltaFile_nFPosition e_deltaFile_lFPosition 1 "FPosition"
  755. .o 2 0
  756. e_deltaFile_lFPosition:
  757.     pop_a 1
  758. .d 1 0
  759.     jsr ea46
  760. .o 0 3 i f
  761.     create
  762.     create
  763.     fillF_b 1 0
  764.     create
  765.     fillI_b 0 0
  766.     fill _Tuple 2 _hnf 2
  767.     pop_b 3
  768. .d 1 0
  769.     rtn
  770. .n 1 e_deltaFile_FPosition
  771. .o 1 0
  772. e_deltaFile_nFPosition:
  773.     push_node _cycle_in_spine 1
  774. .d 1 0
  775.     jsr ea46
  776. .o 0 3 i f
  777.     create
  778.     fillF_b 1 0
  779.     create
  780.     fillI_b 0 0
  781.     fill _Tuple 2 _hnf 2
  782.     pop_b 3
  783. .d 1 0
  784.     rtn
  785. .o 1 0
  786. ea46:
  787.     jsr_eval
  788.     pushF_a 0
  789.     pop_a 1
  790. .o 0 2 f
  791. e_deltaFile_sFPosition:
  792. .o 0 2 f
  793. s46.1:
  794. .inline FPosition
  795. .d 0 2 f
  796.     jsr positionF
  797. .o 0 3 i f
  798. .end
  799. .d 0 3 i f
  800.     rtn
  801. .export e_deltaFile_FSeek
  802. .export e_deltaFile_sFSeek
  803. .export e_deltaFile_nFSeek
  804. .desc e_deltaFile_FSeek e_deltaFile_nFSeek e_deltaFile_lFSeek 3 "FSeek"
  805. .o 2 0
  806. e_deltaFile_lFSeek:
  807.     repl_args 2 2
  808. .d 3 0
  809.     jsr ea48
  810. .o 0 3 b f
  811.     create
  812.     create
  813.     fillF_b 1 0
  814.     create
  815.     fillB_b 0 0
  816.     fill _Tuple 2 _hnf 2
  817.     pop_b 3
  818. .d 1 0
  819.     rtn
  820. .n 3 e_deltaFile_FSeek
  821. .o 1 0
  822. e_deltaFile_nFSeek:
  823.     push_node _cycle_in_spine 3
  824. .d 3 0
  825.     jsr ea48
  826. .o 0 3 b f
  827.     create
  828.     fillF_b 1 0
  829.     create
  830.     fillB_b 0 0
  831.     fill _Tuple 2 _hnf 2
  832.     pop_b 3
  833. .d 1 0
  834.     rtn
  835. .o 3 0
  836. ea48:
  837.     push_a 2
  838.     jsr_eval
  839.     pop_a 1
  840.     push_a 1
  841.     jsr_eval
  842.     pop_a 1
  843.     jsr_eval
  844.     pushI_a 2
  845.     pushI_a 1
  846.     pushF_a 0
  847.     pop_a 3
  848. .o 0 4 f i i
  849. e_deltaFile_sFSeek:
  850. .o 0 4 f i i
  851. s48.1:
  852. .inline FSeek
  853. .d 0 4 f i i
  854.     jsr seekF
  855. .o 0 3 b f
  856. .end
  857. .d 0 3 b f
  858.     rtn
  859. .export e_deltaFile_SFOpen
  860. .export e_deltaFile_sSFOpen
  861. .export e_deltaFile_nSFOpen
  862. .desc e_deltaFile_SFOpen e_deltaFile_nSFOpen e_deltaFile_lSFOpen 2 "SFOpen"
  863. .o 2 0
  864. e_deltaFile_lSFOpen:
  865.     repl_args 1 1
  866. .d 2 0
  867.     jsr ea50
  868. .o 0 3 b f
  869.     create
  870.     create
  871.     fillF_b 1 0
  872.     create
  873.     fillB_b 0 0
  874.     fill _Tuple 2 _hnf 2
  875.     pop_b 3
  876. .d 1 0
  877.     rtn
  878. .n 2 e_deltaFile_SFOpen
  879. .o 1 0
  880. e_deltaFile_nSFOpen:
  881.     push_node _cycle_in_spine 2
  882. .d 2 0
  883.     jsr ea50
  884. .o 0 3 b f
  885.     create
  886.     fillF_b 1 0
  887.     create
  888.     fillB_b 0 0
  889.     fill _Tuple 2 _hnf 2
  890.     pop_b 3
  891. .d 1 0
  892.     rtn
  893. .o 2 0
  894. ea50:
  895.     push_a 1
  896.     jsr_eval
  897.     pop_a 1
  898.     jsr_eval
  899.     pushI_a 1
  900.     update_a 0 1
  901.     pop_a 1
  902. .o 1 1 i
  903. e_deltaFile_sSFOpen:
  904. .o 1 1 i
  905. s50.1:
  906. .inline SFOpen
  907. .d 1 1 i
  908.     jsr    openSF
  909. .o 0 3 b f
  910. .end
  911. .d 0 3 b f
  912.     rtn
  913. .export e_deltaFile_SFReadC
  914. .export e_deltaFile_sSFReadC
  915. .export e_deltaFile_nSFReadC
  916. .desc e_deltaFile_SFReadC e_deltaFile_nSFReadC e_deltaFile_lSFReadC 1 "SFReadC"
  917. .o 2 0
  918. e_deltaFile_lSFReadC:
  919.     pop_a 1
  920. .d 1 0
  921.     jsr ea52
  922. .o 0 4 b c f
  923.     create
  924.     create
  925.     fillF_b 2 0
  926.     create
  927.     fillC_b 1 0
  928.     create
  929.     fillB_b 0 0
  930.     fill _Tuple 3 _hnf 3
  931.     pop_b 4
  932. .d 1 0
  933.     rtn
  934. .n 1 e_deltaFile_SFReadC
  935. .o 1 0
  936. e_deltaFile_nSFReadC:
  937.     push_node _cycle_in_spine 1
  938. .d 1 0
  939.     jsr ea52
  940. .o 0 4 b c f
  941.     create
  942.     fillF_b 2 0
  943.     create
  944.     fillC_b 1 0
  945.     create
  946.     fillB_b 0 0
  947.     fill _Tuple 3 _hnf 3
  948.     pop_b 4
  949. .d 1 0
  950.     rtn
  951. .o 1 0
  952. ea52:
  953.     jsr_eval
  954.     pushF_a 0
  955.     pop_a 1
  956. .o 0 2 f
  957. e_deltaFile_sSFReadC:
  958. .o 0 2 f
  959. s52.1:
  960. .inline SFReadC
  961. .d 0 2 f
  962.     jsr    readSFC
  963. .o 0 4 b c f
  964. .end
  965. .d 0 4 b c f
  966.     rtn
  967. .export e_deltaFile_SFReadI
  968. .export e_deltaFile_sSFReadI
  969. .export e_deltaFile_nSFReadI
  970. .desc e_deltaFile_SFReadI e_deltaFile_nSFReadI e_deltaFile_lSFReadI 1 "SFReadI"
  971. .o 2 0
  972. e_deltaFile_lSFReadI:
  973.     pop_a 1
  974. .d 1 0
  975.     jsr ea54
  976. .o 0 4 b i f
  977.     create
  978.     create
  979.     fillF_b 2 0
  980.     create
  981.     fillI_b 1 0
  982.     create
  983.     fillB_b 0 0
  984.     fill _Tuple 3 _hnf 3
  985.     pop_b 4
  986. .d 1 0
  987.     rtn
  988. .n 1 e_deltaFile_SFReadI
  989. .o 1 0
  990. e_deltaFile_nSFReadI:
  991.     push_node _cycle_in_spine 1
  992. .d 1 0
  993.     jsr ea54
  994. .o 0 4 b i f
  995.     create
  996.     fillF_b 2 0
  997.     create
  998.     fillI_b 1 0
  999.     create
  1000.     fillB_b 0 0
  1001.     fill _Tuple 3 _hnf 3
  1002.     pop_b 4
  1003. .d 1 0
  1004.     rtn
  1005. .o 1 0
  1006. ea54:
  1007.     jsr_eval
  1008.     pushF_a 0
  1009.     pop_a 1
  1010. .o 0 2 f
  1011. e_deltaFile_sSFReadI:
  1012. .o 0 2 f
  1013. s54.1:
  1014. .inline SFReadI
  1015. .d 0 2 f
  1016.     jsr    readSFI
  1017. .o 0 4 b i f
  1018. .end
  1019. .d 0 4 b i f
  1020.     rtn
  1021. .export e_deltaFile_SFReadR
  1022. .export e_deltaFile_sSFReadR
  1023. .export e_deltaFile_nSFReadR
  1024. .desc e_deltaFile_SFReadR e_deltaFile_nSFReadR e_deltaFile_lSFReadR 1 "SFReadR"
  1025. .o 2 0
  1026. e_deltaFile_lSFReadR:
  1027.     pop_a 1
  1028. .d 1 0
  1029.     jsr ea56
  1030. .o 0 5 b r f
  1031.     create
  1032.     create
  1033.     fillF_b 3 0
  1034.     create
  1035.     fillR_b 1 0
  1036.     create
  1037.     fillB_b 0 0
  1038.     fill _Tuple 3 _hnf 3
  1039.     pop_b 5
  1040. .d 1 0
  1041.     rtn
  1042. .n 1 e_deltaFile_SFReadR
  1043. .o 1 0
  1044. e_deltaFile_nSFReadR:
  1045.     push_node _cycle_in_spine 1
  1046. .d 1 0
  1047.     jsr ea56
  1048. .o 0 5 b r f
  1049.     create
  1050.     fillF_b 3 0
  1051.     create
  1052.     fillR_b 1 0
  1053.     create
  1054.     fillB_b 0 0
  1055.     fill _Tuple 3 _hnf 3
  1056.     pop_b 5
  1057. .d 1 0
  1058.     rtn
  1059. .o 1 0
  1060. ea56:
  1061.     jsr_eval
  1062.     pushF_a 0
  1063.     pop_a 1
  1064. .o 0 2 f
  1065. e_deltaFile_sSFReadR:
  1066. .o 0 2 f
  1067. s56.1:
  1068. .inline SFReadR
  1069. .d 0 2 f
  1070.     jsr    readSFR
  1071. .o 0 5 b r f
  1072. .end
  1073. .d 0 5 b r f
  1074.     rtn
  1075. .export e_deltaFile_SFReadS
  1076. .export e_deltaFile_sSFReadS
  1077. .export e_deltaFile_nSFReadS
  1078. .desc e_deltaFile_SFReadS e_deltaFile_nSFReadS e_deltaFile_lSFReadS 2 "SFReadS"
  1079. .o 2 0
  1080. e_deltaFile_lSFReadS:
  1081.     repl_args 1 1
  1082. .d 2 0
  1083.     jsr ea58
  1084. .o 1 2 f
  1085.     create
  1086.     create
  1087.     fillF_b 0 0
  1088.     push_a 2
  1089.     fill _Tuple 2 _hnf 2
  1090.     update_a 0 1
  1091.     pop_a 1
  1092.     pop_b 2
  1093. .d 1 0
  1094.     rtn
  1095. .n 2 e_deltaFile_SFReadS
  1096. .o 1 0
  1097. e_deltaFile_nSFReadS:
  1098.     push_node _cycle_in_spine 2
  1099. .d 2 0
  1100.     jsr ea58
  1101. .o 1 2 f
  1102.     create
  1103.     fillF_b 0 0
  1104.     push_a 1
  1105.     fill _Tuple 2 _hnf 3
  1106.     pop_a 1
  1107.     pop_b 2
  1108. .d 1 0
  1109.     rtn
  1110. .o 2 0
  1111. ea58:
  1112.     push_a 1
  1113.     jsr_eval
  1114.     pop_a 1
  1115.     jsr_eval
  1116.     pushI_a 1
  1117.     pushF_a 0
  1118.     pop_a 2
  1119. .o 0 3 f i
  1120. e_deltaFile_sSFReadS:
  1121. .o 0 3 f i
  1122. s58.1:
  1123. .inline SFReadS
  1124. .d 0 3 f i
  1125.     jsr readSFS
  1126. .o 1 2 f
  1127. .end
  1128. .d 1 2 f
  1129.     rtn
  1130. .export e_deltaFile_SFReadLine
  1131. .export e_deltaFile_sSFReadLine
  1132. .export e_deltaFile_nSFReadLine
  1133. .desc e_deltaFile_SFReadLine e_deltaFile_nSFReadLine e_deltaFile_lSFReadLine 1 "SFReadLine"
  1134. .o 2 0
  1135. e_deltaFile_lSFReadLine:
  1136.     pop_a 1
  1137. .d 1 0
  1138.     jsr ea60
  1139. .o 1 2 f
  1140.     create
  1141.     create
  1142.     fillF_b 0 0
  1143.     push_a 2
  1144.     fill _Tuple 2 _hnf 2
  1145.     update_a 0 1
  1146.     pop_a 1
  1147.     pop_b 2
  1148. .d 1 0
  1149.     rtn
  1150. .n 1 e_deltaFile_SFReadLine
  1151. .o 1 0
  1152. e_deltaFile_nSFReadLine:
  1153.     push_node _cycle_in_spine 1
  1154. .d 1 0
  1155.     jsr ea60
  1156. .o 1 2 f
  1157.     create
  1158.     fillF_b 0 0
  1159.     push_a 1
  1160.     fill _Tuple 2 _hnf 3
  1161.     pop_a 1
  1162.     pop_b 2
  1163. .d 1 0
  1164.     rtn
  1165. .o 1 0
  1166. ea60:
  1167.     jsr_eval
  1168.     pushF_a 0
  1169.     pop_a 1
  1170. .o 0 2 f
  1171. e_deltaFile_sSFReadLine:
  1172. .o 0 2 f
  1173. s60.1:
  1174. .inline SFReadLine
  1175. .d 0 2 f
  1176.     jsr readLineSF
  1177. .o 1 2 f
  1178. .end
  1179. .d 1 2 f
  1180.     rtn
  1181. .export e_deltaFile_FShare
  1182. .export e_deltaFile_sFShare
  1183. .export e_deltaFile_nFShare
  1184. .desc e_deltaFile_FShare e_deltaFile_nFShare e_deltaFile_lFShare 1 "FShare"
  1185. .o 2 0
  1186. e_deltaFile_lFShare:
  1187.     pop_a 1
  1188. .d 1 0
  1189.     jsr ea62
  1190. .o 0 2 f
  1191.     create
  1192.     fillF_b 0 0
  1193.     pop_b 2
  1194. .d 1 0
  1195.     rtn
  1196. .n 1 e_deltaFile_FShare
  1197. .o 1 0
  1198. e_deltaFile_nFShare:
  1199.     push_node _cycle_in_spine 1
  1200. .d 1 0
  1201.     jsr ea62
  1202. .o 0 2 f
  1203.     fillF_b 0 0
  1204.     pop_b 2
  1205. .d 1 0
  1206.     rtn
  1207. .o 1 0
  1208. ea62:
  1209.     jsr_eval
  1210.     pushF_a 0
  1211.     pop_a 1
  1212. .o 0 2 f
  1213. e_deltaFile_sFShare:
  1214. .o 0 2 f
  1215. s62.1:
  1216. .inline FShare
  1217. .d 0 2 f
  1218.     jsr shareF
  1219. .o 0 2 f
  1220. .end
  1221. .d 0 2 f
  1222.     rtn
  1223. .export e_deltaFile_SFEnd
  1224. .export e_deltaFile_sSFEnd
  1225. .export e_deltaFile_nSFEnd
  1226. .desc e_deltaFile_SFEnd e_deltaFile_nSFEnd e_deltaFile_lSFEnd 1 "SFEnd"
  1227. .o 2 0
  1228. e_deltaFile_lSFEnd:
  1229.     pop_a 1
  1230. .d 1 0
  1231.     jsr ea64
  1232. .o 0 1 b
  1233.     create
  1234.     fillB_b 0 0
  1235.     pop_b 1
  1236. .d 1 0
  1237.     rtn
  1238. .n 1 e_deltaFile_SFEnd
  1239. .o 1 0
  1240. e_deltaFile_nSFEnd:
  1241.     push_node _cycle_in_spine 1
  1242. .d 1 0
  1243.     jsr ea64
  1244. .o 0 1 b
  1245.     fillB_b 0 0
  1246.     pop_b 1
  1247. .d 1 0
  1248.     rtn
  1249. .o 1 0
  1250. ea64:
  1251.     jsr_eval
  1252.     pushF_a 0
  1253.     pop_a 1
  1254. .o 0 2 f
  1255. e_deltaFile_sSFEnd:
  1256. .o 0 2 f
  1257. s64.1:
  1258. .inline SFEnd
  1259. .d 0 2 f
  1260.     jsr endSF
  1261. .o 0 1 b
  1262. .end
  1263. .d 0 1 b
  1264.     rtn
  1265. .export e_deltaFile_SFPosition
  1266. .export e_deltaFile_sSFPosition
  1267. .export e_deltaFile_nSFPosition
  1268. .desc e_deltaFile_SFPosition e_deltaFile_nSFPosition e_deltaFile_lSFPosition 1 "SFPosition"
  1269. .o 2 0
  1270. e_deltaFile_lSFPosition:
  1271.     pop_a 1
  1272. .d 1 0
  1273.     jsr ea66
  1274. .o 0 1 i
  1275.     create
  1276.     fillI_b 0 0
  1277.     pop_b 1
  1278. .d 1 0
  1279.     rtn
  1280. .n 1 e_deltaFile_SFPosition
  1281. .o 1 0
  1282. e_deltaFile_nSFPosition:
  1283.     push_node _cycle_in_spine 1
  1284. .d 1 0
  1285.     jsr ea66
  1286. .o 0 1 i
  1287.     fillI_b 0 0
  1288.     pop_b 1
  1289. .d 1 0
  1290.     rtn
  1291. .o 1 0
  1292. ea66:
  1293.     jsr_eval
  1294.     pushF_a 0
  1295.     pop_a 1
  1296. .o 0 2 f
  1297. e_deltaFile_sSFPosition:
  1298. .o 0 2 f
  1299. s66.1:
  1300. .inline SFPosition
  1301. .d 0 2 f
  1302.     jsr positionSF
  1303. .o 0 1 i
  1304. .end
  1305. .d 0 1 i
  1306.     rtn
  1307. .export e_deltaFile_SFSeek
  1308. .export e_deltaFile_sSFSeek
  1309. .export e_deltaFile_nSFSeek
  1310. .desc e_deltaFile_SFSeek e_deltaFile_nSFSeek e_deltaFile_lSFSeek 3 "SFSeek"
  1311. .o 2 0
  1312. e_deltaFile_lSFSeek:
  1313.     repl_args 2 2
  1314. .d 3 0
  1315.     jsr ea68
  1316. .o 0 3 b f
  1317.     create
  1318.     create
  1319.     fillF_b 1 0
  1320.     create
  1321.     fillB_b 0 0
  1322.     fill _Tuple 2 _hnf 2
  1323.     pop_b 3
  1324. .d 1 0
  1325.     rtn
  1326. .n 3 e_deltaFile_SFSeek
  1327. .o 1 0
  1328. e_deltaFile_nSFSeek:
  1329.     push_node _cycle_in_spine 3
  1330. .d 3 0
  1331.     jsr ea68
  1332. .o 0 3 b f
  1333.     create
  1334.     fillF_b 1 0
  1335.     create
  1336.     fillB_b 0 0
  1337.     fill _Tuple 2 _hnf 2
  1338.     pop_b 3
  1339. .d 1 0
  1340.     rtn
  1341. .o 3 0
  1342. ea68:
  1343.     push_a 2
  1344.     jsr_eval
  1345.     pop_a 1
  1346.     push_a 1
  1347.     jsr_eval
  1348.     pop_a 1
  1349.     jsr_eval
  1350.     pushI_a 2
  1351.     pushI_a 1
  1352.     pushF_a 0
  1353.     pop_a 3
  1354. .o 0 4 f i i
  1355. e_deltaFile_sSFSeek:
  1356. .o 0 4 f i i
  1357. s68.1:
  1358. .inline SFSeek
  1359. .d 0 4 f i i
  1360.     jsr seekSF
  1361. .o 0 3 b f
  1362. .end
  1363. .d 0 3 b f
  1364.     rtn
  1365.